## Copyright (C) 2007 Thomas Geiger (tom.geiger@gmail.com)
##
##
## This library is free software; you can redistribute it and/or
## modify it under the terms of the GNU Lesser General Public
## License as published by the Free Software Foundation; either
## version 2.1 of the License, or (at your option) any later version.
##
## This library is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
## Lesser General Public License for more details.
##
## You should have received a copy of the GNU Lesser General Public
## License along with this library; if not, write to the Free Software
## Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
##

## -*- texinfo -*-
## @deftypefn {Function File} {} gt_jobpoll(h)
## Monitor a GRAM job by the given handle (h).
## @end deftypefn

## Author: Thomas Geiger (tom.geiger@gmail.com)

function res = gt_jobpoll(h)

if (nargin == 0)
    error("No argument provided.");
endif

status = gt_jobstatus(h);

while status != -1
sleep(1);
status = gt_jobstatus(h);
endwhile

fprintf("Finished!\n");

res = true;

endfunction

